FM Towns: Free Software Collection 4/FM Towns Free Software Collection 4 - Disc 1.iso/msdos/dbhamlog/freqken.prg

Text File | 1991-10-18 | 3KB | 150 lines

****************  交信記録確認 ****************
***************   FREQKEN.PRG  ***** T.Chino ***
SET ORDER TO 3
CLEAR
GOTO TOP
SET COLOR ON
SET EXACT OFF

SET COLOR TO BR
  @ 1,15   SAY "*************************************************"
  @ 2,15   SAY "*                                               *"
  @ 3,15   SAY "******************************** FREQ 検索.PRG **"
SET COLOR TO GR
  @ 2,18   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"

SET COLOR TO BG
 @  5,20 SAY "    -------------------------------"
 @  6,20 SAY "    *  呼出符号                   *"
 @  7,20 SAY "    -------------------------------"
SET COLOR TO G
 @  8,15 SAY " 交信月日                   氏名  "
 @ 10,15 SAY "     時間                   住所  "
 @ 12,15 SAY "   周波数        MHz       JCC/G         GL"
 @ 14,15 SAY " 電波形式                   QSL   "
 @ 16,15 SAY "                         交信回数 "
 @ 18,15 SAY "                             "

SET COLOR TO

DO WHILE .T. && ****************111***********

SET COLOR TO GR
STORE SPACE(4) TO F
  @ 22,1 SAY "                                                              "
  @ 23,1 SAY "                                                              "
  @ 22,15 SAY "        検索する 周波数帯は  ? " GET F
  READ
  CLEAR GET

IF F="    "
 RETURN
ENDIF

F=TRIM(F)

FL=LEN(F)

FIND &F

STORE 1 TO N
DO WHILE .T. && ********2222

 IF EOF() .AND. READKEY()<>5
  EXIT
 ENDIF

IF LEFT(FREQ,FL) = F

      IF LEN(TRIM(FREQ))<>FL
           SKIP -1
           EXIT
      ENDIF

 SKIP
 STORE N+1 TO N
ELSE
 SKIP -1
 EXIT
ENDIF
ENDDO && ***************222

DO WHILE .T. && ********333

 IF EOF() .AND. READKEY()<>5
  EXIT
 ENDIF

SET COLOR TO R
  @ 2,65   SAY STR(RECNO(),5)+" /"+STR(RECCOUNT(),5)

SET COLOR TO GRI
 @  6,39 SAY " "+CALL
SET COLOR TO GR
 @  8,25 SAY " "+DTOC(MMDDYY)
 @ 10,25 SAY " "+TIME
 @ 12,25 SAY " "+FREQ
 @ 14,25 SAY " "+WAVE
 @  8,48 SAY " "+NAME
 @ 10,48 SAY " "+ADDRES
 @ 12,48 SAY " "+JCC_G
 @ 12,58 SAY " "+GL
*Q="OK"
 @ 14,48 SAY " "+QSL
 @ 16,48 SAY "       "
IF FREQ=F
 @ 16,48 SAY " "+STR((N-1),4)
ENDIF

SET CURS OFF
SET COLOR TO BR
 STORE SPACE(1) TO ZB
 @ 22,15 SAY " 前後のＤＡＴＡ検索 ( ↑･↓ )                  "
SET COLOR TO BGI
 @ 22,47 SAY "  [ NEXT=CR ]  "
 @ 0,0 GET ZB
  READ
 CLEAR GET

 IF READKEY()=4

 IF BOF()
 GOTO BOTTOM
 ENDIF

 SKIP -1
 LOOP
 ENDIF

 IF READKEY()=5

 IF EOF()
 GOTO TOP
 LOOP
 ENDIF

 SKIP +1
 LOOP
 ELSE
 EXIT
 ENDIF

ENDDO && *************333
*REPLACE  QSL WITH Q

SET CURS ON
SET COLOR TO R
IF EOF()
@ 22,0 SAY " 該当する交信記録は有りません｡"
WAIT
LOOP
ELSE
LOOP
ENDIF
ENDDO && ************111

CLEAR
*DO CALL
DO HAM